home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac 1993 September / September 93.iso / Archives / Applications / Graphics / Fractals / Mandella 8.7 / Mandella / Mandella.rsrc / STR_137_Feather.txt < prev    next >
Encoding:
Text File  |  1993-04-08  |  163 b   |  6 lines
  1. Init: d to 2 - 2*c.r
  2.       w to c.r*x + d*x^2/(1 + x^2)
  3. Iterate: newX := c.i*y + w
  4.          u := newX^2
  5.          w := c.r*newX + d*u/(1 + u)
  6.          newY := w - x